home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / GEnie.Script.v3.0 < prev    next >
Text File  |  1992-03-20  |  2KB  |  110 lines
  1. * GEnie Script, for QuickMail™
  2. * © 1988-91 CE Software, Inc.
  3. *
  4. * Title: GEnie.Script.v2.5
  5. * Version: 2.5
  6. * Modification Date: 5/16/91
  7. * 
  8. * This is a simple script for logging onto GEnie.  It assumes that
  9. * you are calling directly into the GEnie network
  10. *
  11. * THIS SCRIPT ONLY WORKS IF YOU ARE CALLING INTO A GENIE NODE
  12. *
  13. * This is called to log us into GEnie
  14. :IN
  15. OOPS 120,FAILURE
  16. TYPE HHH
  17. WAIT U#=
  18. :I2
  19. PAUSE 2
  20. TYPE «LOGID»,«PASSWORD»,200^M
  21. ALERT 1,I2,REENTER U#
  22. NOTMAIL No Letters waiting.
  23. Wait Enter #
  24. Type ^M
  25. SUCCESS
  26. *
  27. :RECEIVE
  28. OOPS 60,FAILURE
  29. Pause 5
  30. Wait Enter #
  31. TYPE 2^M
  32. Pause 5
  33. :R1
  34. ALERT 2,R2,Press <RETURN>?
  35. BUFFER =END=
  36. TYPE ^S
  37. RECEIVE Sub:,Attn:,From:   ,            , 
  38. TYPE ^Q
  39. GOTO R1
  40. :R2
  41. TYPE ^M
  42. FAILURE
  43. *
  44. :XSEND
  45. ALERT 1,X2,not found in Standard Address Directories
  46. OOPS 60,FAILURE
  47. Wait Enter #
  48. Pause 5
  49. TYPE 11^M
  50. WAIT ?
  51. TYPE «TOPIC»^M
  52. WAIT <Q>uit?
  53. TYPE 2^M
  54. WAIT READY FOR INPUT
  55. WAIT READY FOR INPUT
  56. XMODEM UPLOAD,FAILURE
  57. WAIT Press <Return>?
  58. TYPE ^M
  59. WAIT To:
  60. WAIT To:
  61. TYPE «ADDRESS»^M
  62. WAIT Carbon Copy:
  63. TYPE ^M
  64. WAIT Enter letter text:
  65. WAIT 1>
  66. TYPE Attn:«NAME»^M
  67. WAIT 2>
  68. TYPE A binary file has been sent that must be downloaded manually.^M
  69. WAIT 3>
  70. TYPE *S^M
  71. Wait <RETURN>
  72. Type ^M
  73. SUCCESS
  74. :X2
  75. ERRORINADDRESS
  76. Wait Carbon Copy:
  77. Type QUIT^M
  78. SUCCESS
  79. *
  80. :SEND
  81. ALERT 1,S2,not found in Standard Address Directories
  82. OOPS 120,FAILURE
  83. Wait Enter #
  84. Pause 5
  85. TYPE 7^M
  86. Wait your mail.
  87. Wait To:
  88. Type «ADDRESS»^M
  89. :S1
  90. Wait Carbon Copy:
  91. Type ^M
  92. Wait Sub:
  93. Type «TOPIC»^M
  94. Wait READY FOR INPUT
  95. DUMP
  96. Type *S^M^C
  97. SUCCESS
  98. :S2
  99. ERRORINADDRESS
  100. GOTO S1
  101. *
  102. * This logs us off GEnie
  103. *
  104. :BYE
  105. Wait Enter #
  106. TYPE Bye^M
  107. ALERT 1,SUCCESS,NO CARRIER
  108. PAUSE 30
  109. SUCCESS
  110.